home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / util / conv / Raw2Ent114.lha / CWISENV next >
Encoding:
AmigaDOS Script File  |  1996-07-19  |  663 b   |  39 lines
  1. .KEY FILENAME/A,MODE,KAT/A,P1,P2
  2. .BRA {
  3. .KET }
  4.  
  5. ; CWISENV by Tamio Patrick Honma
  6.  
  7. cd ENV:CWIS/{KAT}/
  8. IF {P1} NOT EQ ""
  9.   cd >NIL: {P1}
  10. ENDIF
  11. IF {P2} NOT EQ ""
  12.   cd >NIL: {P2}
  13. ENDIF
  14. assign ENVDir: ""
  15.  
  16. cd ENVARC:CWIS/{KAT}/
  17. IF {P1} NOT EQ ""
  18.   cd >NIL: {P1}
  19. ENDIF
  20. IF {P2} NOT EQ ""
  21.   cd >NIL: {P2}
  22. ENDIF
  23. assign ENVARCDir: ""
  24.  
  25. IF {MODE} EQ "ENT"
  26.   delete ENVDir:{FILENAME} ENVARCDir:{FILENAME}
  27. ELSE
  28.   IF {P2} NOT EQ ""
  29.     setenv CWIS/{KAT}/{P1}/{P2}/{FILENAME} {MODE}
  30.   ELSE
  31.     IF {P1} NOT EQ ""
  32.       setenv CWIS/{KAT}/{P1}/{FILENAME} {MODE}
  33.     ELSE
  34.       setenv CWIS/{KAT}/{FILENAME} {MODE}
  35.     ENDIF
  36.   ENDIF
  37.   copy ENVDir:{FILENAME} ENVARCDir:{FILENAME}
  38. ENDIF
  39.